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Created by: 



JOHN LOMARTIRE on: 



02/20/1990 00:48:18 



The newsletter from Adam and Eve Apple Users Group of Madison Wisconsin 
contained a review of the Ariel Publishing Company newsletter. 
According to the reviewer, H. Jackson, the July-August issue published 
an Applesoft Basic program (Apple II) that would produce a "butterfly" 
on the screen. I have rewritten the program so it will run on our 
Apple ///, and since it is so short I have listed it here with 
acknowledgement to Adam & Eve and Ariel Publishing. 
The program: 

100 HOME 

120 INVOKE " . Dl/BGRAF . INV" 
130 OPEN# 1,".GRAFIX" 

140 MODE=0:BUFFER=1 : PERFORM GRAFIXMODE (%M0DE, %BUFFER) 
150 PERFORM FILLPORT: PERFORM GRAFIXON 
160 FOR T=0 TO 75.36 STEP .01 
170 S=SIN(T) :C=C0S (T) 

180 R=24* ( (EXP (C) ) - (2*COS(4*T)) + (SIN (T/12) A 5) ) 

190 H%=140 + R*S:V%=96 - R*C 

200 PERFORM DOTAT (%H%, %V%) 

210 NEXT 

220 VPOS=23:GET A$ 
230 CLOSE: TEXT: HOME: END 

Note that the way the program is written, BGRAF.INV must be in Drive 
#1 since that is where it is called in line 120. 
You might have some fun changing the parameters in line 180. 
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